unit Evac_Form_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TemplateUnit, Evac_Frame_Unit, StdCtrls, ExtCtrls, AppEvnts,
  JvComponentBase;

type
  TEvac_Form = class(TTemplateForm)
    evc_frm1: TEvac_Frame;
    procedure evc_frm1btnCalcClick(Sender: TObject);
    procedure evc_frm1btn_Redakt_PassClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Evac_Form: TEvac_Form;

implementation

{$R *.dfm}

procedure TEvac_Form.evc_frm1btnCalcClick(Sender: TObject);
begin
  inherited;
  evc_frm1.btnCalcClick(Sender);
end;

procedure TEvac_Form.evc_frm1btn_Redakt_PassClick(Sender: TObject);
begin
  inherited;
  evc_frm1.btn_Redakt_PassClick(Sender);
end;

procedure TEvac_Form.FormShow(Sender: TObject);
begin
  inherited;
  evc_frm1.Init;
end;

end.